﻿module NoneScript

open System
open System.Collections.Generic
open System.Linq
open System.Text.RegularExpressions
open Microsoft.FSharp.Collections
open Microsoft.Xna.Framework
open Microsoft.Xna.Framework.Audio
open Microsoft.Xna.Framework.Content
open Microsoft.Xna.Framework.GamerServices
open Microsoft.Xna.Framework.Graphics
open Microsoft.Xna.Framework.Input
open Microsoft.Xna.Framework.Media
open EntitiesAndGameState
open Component
open Utils
open UnfoldMonad

let none : Script<GameResult> = 
  unfold{    
    do! set_render_text "WARNING! ... NONE SCRIPT" (Vector2(50.0f, 87.5f)) Color.White (Vector2(100.0f, 25.0f))
    do! wait 5.0f
    do! remove_render_text
    do! while_ (unfold{return true}) (unfold { () })
    return EntitiesAndGameState.GameState.Victory
  }